home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / ATLANTA.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  6.5 KB  |  160 lines
  1.       CLEAR                        ; Clear the screen
  2.       LOCATE 1,0                   ; Position the cursor
  3.       TRANSMIT "C DIAL"            ; Transmit Telenet's Area Code inquiry
  4.       TRANSMIT S2                  ; Transmit the Area Code  (stored in S2)
  5.       TRANSMIT "/"                 ; Transmit /
  6.       TRANSMIT S9                  ; Transmit the Baud Rate (stored in S9)
  7.       TRANSMIT ","                 ; Transmit the delimiter
  8.       TRANSMIT S8                  ; Transmit the ID (stored in S8)
  9.       TRANSMIT "!"                 ; Transmit a Carriage Return
  10.       WAITFOR "="                  ; Wait for the "PASSWORD=" prompt
  11.       TRANSMIT S7                  ; Transmit the user Password (stored in S7)
  12.       TRANSMIT "!"                 ; Transmit a Carriage Return
  13.       CLEAR                        ; Clear the screen
  14.       RGET S5                      ; Get the CR echoed from the Transmit
  15.       RGET S5                      ; Get the CR that preceeds PCP messages
  16.       LOCATE 1,0                   ; position the cursor
  17.       RGET S5                      ; Get the actual message
  18.       PAUSE 1                      ; Pause for 1 second
  19.  
  20.       FIND S5 "CONNECT"            ; Look for the "CONNECT" message
  21.  
  22.       IF NOT FOUND                 ; If it isn' there
  23.          CLEAR                     ; Clear the screen
  24.          LOCATE 1,0                ; Position the cursor
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2                   ; Pause for 2 seconds
  27.          CLEAR                     ; Clear the screen
  28.          LOCATE 1,0                ; Position the cursor
  29.          EXECUTE "INTRO.CMD"       ; Call ut the Main Menu
  30.       ENDIF
  31.  
  32.                                    ; SEE BELOW FOR MORE INFORMATION !!
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡ ATLANTA BBS NUMBERS ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - ALTGATE              ║"
  39.    MESSAGE "                         ║  2 - Flagship Express     ║"
  40.    MESSAGE "                         ║  3 - BYTE Connection      ║"
  41.    MESSAGE "                         ║  4 - Microstuf BBS        ║"
  42.    MESSAGE "                         ║  5 - Software Link BBS    ║"
  43.    MESSAGE "                         ║  6 - PC-Exchange BBS      ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.    LOCATE 17,40                        ; OTHER STUFF:
  54.    MESSAGE  " "
  55.    LOCATE 17,40                        ; When the number that you dialed is
  56.    GET S5 1                            ; busy, you will get a message that
  57.                                        ; says "returning to the City Menu"
  58.    SWITCH S5                           ; If you want to keep trying the number
  59.                                        ; just select it again, and it will be
  60.       CASE "1"                         ; re-dialed.
  61.          ASSIGN S3 "ATLGATE"           ; If you are connected to the number, you
  62.          ASSIGN S4 "9281876"           ; will get a "CONNECT" message, and you
  63.       ENDCASE                          ; can log on to the BBS as you normally do.
  64.                                        ; After you log off the BBS you will see a
  65.       CASE "2"                         ; message "BUSY"  This will tell you that
  66.          ASSIGN S3 "Flagship Express"  ; you have been disconnected from the BBS
  67.          ASSIGN S4 "9344515"           ; BUT you are still connected to the PCP
  68.       ENDCASE                          ; remote city trunk.  Press ALT-H to
  69.                                        ; disconnect from PCP completely, and then
  70.       CASE "3"                         ; ALT-F5 to call up the Command menu and
  71.          ASSIGN S3 "BYTE Connection"   ; select PCP to start the process all over
  72.          ASSIGN S4 "9410159"           ; again.
  73.       ENDCASE                          ; If when you are trying to connect to
  74.                                        ; the BBS you get a message "MANUAL ANSWER"
  75.       CASE "4"                         ; PCP has screwed up.  This is an error on
  76.          ASSIGN S3 "Microstuf_BBS"     ; the PCP network and should be reported
  77.          ASSIGN S4 "9988048"           ; if it happens a lot.  When it does happen
  78.       ENDCASE                          ; you can try hitting <enter> a couple of
  79.                                        ; times to clear it.  If the system just
  80.       CASE "5"                         ; does nothing, you will be forced to hang
  81.          ASSIGN S3 "Software Link"     ; up (ALT-H) and start the process from
  82.          ASSIGN S4 "9986737"           ; the beginning.
  83.       ENDCASE
  84.  
  85.       CASE "6"
  86.          ASSIGN S3 "PC-Exchange BBS"
  87.          ASSIGN S4 "9776686"
  88.       ENDCASE
  89.  
  90.       CASE "M"
  91.          CLEAR
  92.          LOCATE 5,20
  93.          MESSAGE "NUMBER TO DIAL:"
  94.          LOCATE 5,36
  95.          ASSIGN S3 "MANUAL DIAL"
  96.          GET S4
  97.       ENDCASE
  98.  
  99.       CASE "Q"
  100.          CLEAR
  101.          TRANSMIT "!@!"
  102.          WAITFOR "@"
  103.          TRANSMIT "D!"
  104.          WAITFOR "@"
  105.          CLEAR
  106.          LOCATE 1,0
  107.          PAUSE 1
  108.          EXECUTE "INTRO.CMD"
  109.       ENDCASE
  110.  
  111.       DEFAULT
  112.          MESSAGE "^G"
  113.          LOCATE 17,40
  114.          GOTO BEGIN
  115.       ENDCASE
  116.  
  117. ENDSWITCH
  118.       CLEAR
  119.       LOCATE 1,0
  120.       MESSAGE "CONNECTED TO PCP"
  121.       MESSAGE S1
  122.       MESSAGE "DIALING"
  123.       MESSAGE S3
  124.  
  125.  
  126.       TRANSMIT "ATZ!"
  127.       WAITFOR "OK" 10
  128.       TRANSMIT "ATDT"
  129.       TRANSMIT S4
  130.       TRANSMIT "!"
  131.       RGET S0
  132.       RGET S0 80 40
  133.       RGET S0
  134.       PAUSE 2
  135.  
  136.       FIND S0 "BUSY"
  137.       IF FOUND
  138.          CLEAR
  139.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  140.          PAUSE 2
  141.          CLEAR
  142.          LOCATE 1,0
  143.          GOTO BEGIN
  144.       ENDIF
  145.  
  146.       FIND S0 "CONNECT"
  147.       IF FOUND
  148.          SET PARITY NONE
  149.          SET DATABITS 8
  150.       ELSE
  151.          CLEAR
  152.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  153.          PAUSE 2
  154.          CLEAR
  155.          LOCATE 1,0
  156.          GOTO BEGIN
  157.       ENDIF
  158.  
  159.       ALARM 1
  160.       EXIT